home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / comms / 4dtag12.arj / BATCHUP.TXT < prev    next >
Text File  |  1994-03-08  |  5KB  |  102 lines
  1. @echo off
  2. rem This sets up a local environment. You may remove this if you don't need a
  3. rem local environment. I have it here so that your aliases in your master
  4. rem environment will not be affected.
  5. setlocal
  6. goto init
  7.         ┌──────────────────────────────────────────────────────────────┐
  8.         │           4DOS BATCH UPLOADER v1.2, by John Meskew           │
  9.         │                        March 10, 1994                        │
  10.         │                                                              │
  11.         │  You do not have to license this software - just use it and  │
  12.         │  modify  it  to suit  you.  Just don't  remove any  of  the  │
  13.         │  credits contained herein.  This file is for use with Telix  │
  14.         │  v3.15.  I don't know about the later versions  of Telix or  │
  15.         │  other  terminal programs. I don't have them  and  I really  │
  16.         │  feel this batch uploader  is  easier to use  than  the one  │
  17.         │  supplied with the later versions of Telix. This will allow  │
  18.         │  you to upload from any drive:\directory any where on  your  │
  19.         │  system.  Further,  it  will  allow  you  to maximize  your  │
  20.         │  uploading  by allowing you to install any protocol  beyond  │
  21.         │  what Telix can internally support. Further, you can upload  │
  22.         │  virtually  any number of  files.  You will  have to modify  │
  23.         │  this file and  recompile it  with  the batch compiler that  │
  24.         │  comes with 4DOS before using it unless you feel it is good  │
  25.         │  just the way it is.                                         │
  26.         │                                                              │
  27.         │  When you ask Telix for an external  protocol using a batch  │
  28.         │  file  Telix  will provide  the following variables in  the  │
  29.         │  order given: %1  = Port connect speed, not the baud  rate;  │
  30.         │  %2 is the port number and %3 is  the upload directory with  │
  31.         │  the  file specification.  I  have included  a  file called  │
  32.         │  TEST.BTM which  you  temporarily  install  as  an external  │
  33.         │  protocol in your particular term program.  When invoked it  │
  34.         │  will echo  the  parameters  passed  to it  from your  term  │
  35.         │  program. This will  aid you in getting this batch uploader  │
  36.         │  to interface properly with your term  program. Then merely  │
  37.         │  make the  changes to  the  BATCHUP.TXT  source  file,  and  │
  38.         │  recompile  it  with  the  BATCOMP.EXE  batch  compiler  as  │
  39.         │  follows:                                                    │
  40.         │                                                              │
  41.         │                     BATCOMP BATCHUP.TXT /o                   │
  42.         │                                                              │
  43.         │  NOTE:  YOU  MUST PROVIDE EACH  AND  EVERY  PROTOCOL DRIVER  │
  44.         │  CALLED  BY  THE  ALIASES  IN  THE  COMMANDS  GIVEN  IN THE  │
  45.         │  BATCHUP.TXT FILE. IF YOU DO NOT THE PROGRAM WILL EXIT BACK  │
  46.         │  TO THE TERM PROGRAM AND NO UPLOADING WILL TAKE PLACE.       │
  47.         └──────────────────────────────────────────────────────────────┘
  48. :init
  49. cls bright white on black
  50. ctty nul
  51. if exist upfiles.lst del upfiles.lst
  52. ctty con
  53. :start
  54. rem Telix v3.15 passes the upload directory as variable %3
  55. set updir=%3
  56. if "%updir" == "" quit
  57. select df (%updir%) >> a:upfiles.lst
  58. if not exist a:upfiles.lst goto prtcl
  59. :prtcl
  60. cls bright white on black
  61. if exist protalia alias/r protalia
  62. text
  63.  
  64.  
  65.  
  66.                 ╓──────────────────────────────────────────────╖
  67.                 ║             Choose your Protocol             ║
  68.                 ╟──────────────────────────────────────────────╢
  69.                 ║           (H)S-Link - Bidirectional          ║
  70.                 ║           (M)pt - Unidirectional             ║
  71.                 ║           H(y)per - Unidirectional           ║
  72.                 ║           (Z)modem - Unidirectional          ║
  73.                 ║           Ymodem-(G) - Unidirectional        ║
  74.                 ║           (8)k Zmodem - Unidirectional       ║
  75.                 ║           (V)Fast - Unidirectional           ║
  76.                 ║           (A)nother Directory                ║
  77.                 ║           (E)dit Batch                       ║
  78.                 ║           (Q)uit                             ║
  79.                 ╙──────────────────────────────────────────────╜
  80. endtext
  81. inkey /C /W60 /K"HMYZG8VAEQhmyzgvaeq" Protocol Choice: %%protocol
  82. if "%protocol" == "" goto prtcl
  83. if "%protocol" == "H" .or. "%protocol" == "h" bathsl
  84. if "%protocol" == "M" .or. "%protocol" == "m" batmpt
  85. if "%protocol" == "Y" .or. "%protocol" == "y" hyperbat
  86. if "%protocol" == "Z" .or. "%protocol" == "z" batdsz
  87. if "%protocol" == "G" .or. "%protocol" == "g" batymg
  88. if "%protocol" == "8" batzed
  89. if "%protocol" == "V" .or. "%protocol" == "v" batvfast
  90. if "%protocol" == "A" .or. "%protocol" == "a" goto seldir
  91. if "%protocol" == "E" .or. "%protocol" == "e" goto edit
  92. if "%protocol" == "Q" .or. "%protocol" == "q" quit
  93. :edit
  94. rem X is a text editor. Substitute your favorite text editor here.
  95. x upfiles.lst
  96. goto prtcl
  97. :seldir
  98. input /C /W60 Upload Directory: %%updir
  99. if "%updir" == "" goto prtcl
  100. select df (%updir%\*.*) >> a:upfiles.lst
  101. goto prtcl
  102.